
Partial Class GTSWeb_Carrier_Manage
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lbAddRateDetail.Visible = False
        lbAddSurcharge.Visible = False
    End Sub


    Protected Sub lbAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                                Handles lbAdd.Click
        Dim RateLogic As New GTSSystem.BLL.Rates()
        Try
            RateLogic.AddRate(ddlOrigin.SelectedValue, ddlDestination.SelectedValue, _
                                            ddlCarrier.SelectedValue)
            Message.Text = "Rate added successfully"
            lbAddRateDetail.Visible = True
            lbAddSurcharge.Visible = True
        Catch ex As Exception
            Message.Text = "Unable to add rate"
        End Try
    End Sub

    Protected Sub lbAddRateDetail_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                                        Handles lbAddRateDetail.Click
        'add code to show hide panels and buttons

    End Sub

    Protected Sub lbAddSurcharge_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                                        Handles lbAddSurcharge.Click
        'add code to show hide panels and buttons

    End Sub

End Class
